home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / DiskInit.p < prev    next >
Text File  |  1995-09-12  |  3KB  |  103 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 5:52:09 PM }
  2. {
  3.      File:        DiskInit.p
  4.  
  5.      Contains:    Disk Initialization Package ('PACK' 2) Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT DiskInit;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __DISKINIT__}
  26. {$SETC __DISKINIT__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. TYPE
  36.     HFSDefaults = RECORD
  37.         sigWord:                PACKED ARRAY [0..1] OF CHAR;            { signature word }
  38.         abSize:                    LONGINT;                                { allocation block size in bytes }
  39.         clpSize:                LONGINT;                                { clump size in bytes }
  40.         nxFreeFN:                LONGINT;                                { next free file number }
  41.         btClpSize:                LONGINT;                                { B-Tree clump size in bytes }
  42.         rsrv1:                    INTEGER;                                { reserved }
  43.         rsrv2:                    INTEGER;                                { reserved }
  44.         rsrv3:                    INTEGER;                                { reserved }
  45.     END;
  46.  
  47. {$IFC SystemSevenOrLater }
  48.  
  49. PROCEDURE DILoad;
  50.     {$IFC NOT GENERATINGCFM}
  51.     INLINE $7002, $3F00, $A9E9;
  52.     {$ENDC}
  53. PROCEDURE DIUnload;
  54.     {$IFC NOT GENERATINGCFM}
  55.     INLINE $7004, $3F00, $A9E9;
  56.     {$ENDC}
  57. FUNCTION DIBadMount(where: Point; evtMessage: LONGINT): INTEGER;
  58.     {$IFC NOT GENERATINGCFM}
  59.     INLINE $7000, $3F00, $A9E9;
  60.     {$ENDC}
  61. FUNCTION DIFormat(drvNum: INTEGER): OSErr;
  62.     {$IFC NOT GENERATINGCFM}
  63.     INLINE $7006, $3F00, $A9E9;
  64.     {$ENDC}
  65. FUNCTION DIVerify(drvNum: INTEGER): OSErr;
  66.     {$IFC NOT GENERATINGCFM}
  67.     INLINE $7008, $3F00, $A9E9;
  68.     {$ENDC}
  69. FUNCTION DIZero(drvNum: INTEGER; volName: ConstStr255Param): OSErr;
  70.     {$IFC NOT GENERATINGCFM}
  71.     INLINE $700A, $3F00, $A9E9;
  72.     {$ENDC}
  73. FUNCTION DIXFormat(drvNum: INTEGER; fmtFlag: BOOLEAN; fmtArg: LONGINT; VAR actSize: LONGINT): OSErr;
  74.     {$IFC NOT GENERATINGCFM}
  75.     INLINE $700C, $3F00, $A9E9;
  76.     {$ENDC}
  77. FUNCTION DIXZero(drvNum: INTEGER; volName: ConstStr255Param; fsid: INTEGER; mediaStatus: INTEGER; volTypeSelector: INTEGER; volSize: LONGINT; extendedInfoPtr: UNIV Ptr): OSErr;
  78.     {$IFC NOT GENERATINGCFM}
  79.     INLINE $700E, $3F00, $A9E9;
  80.     {$ENDC}
  81. FUNCTION DIReformat(drvNum: INTEGER; fsid: INTEGER; volName: ConstStr255Param; msgText: ConstStr255Param): OSErr;
  82.     {$IFC NOT GENERATINGCFM}
  83.     INLINE $7010, $3F00, $A9E9;
  84.     {$ENDC}
  85. {$ELSEC}
  86.  
  87. PROCEDURE DILoad;
  88. PROCEDURE DIUnload;
  89. FUNCTION DIBadMount(where: Point; evtMessage: LONGINT): INTEGER;
  90. FUNCTION DIFormat(drvNum: INTEGER): OSErr;
  91. FUNCTION DIVerify(drvNum: INTEGER): OSErr;
  92. FUNCTION DIZero(drvNum: INTEGER; volName: ConstStr255Param): OSErr;
  93. {$ENDC}
  94.  
  95. { $ALIGN RESET}
  96. { $POP}
  97.  
  98. {$ENDC} {__DISKINIT__}
  99.  
  100.  IMPLEMENTATION
  101.  END.
  102.  
  103.